home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_B.d64 / tuerme von hanoi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  977b  |  21 lines
  1. 10 print"[147]";tab(11);"[212][213][197][210][205][197][160][214][207][206][160][200][193][206][207][201]"
  2. 20 print"[215]ie hoch(1-6)?";:q=6:gosub190:m=a:dima(3,m):o=2^m-1
  3. 30 b$="*[146]":v=6:forr=17to18-mstep-1:w=r-17+m:forc=v-wtov+w:gosub200:nextc:nextr
  4. 40 print"     [206][207][210][196]        [205][201][212][212][197]        [211][213][197][196]"
  5. 50 print"";:forx=1to3:printtab(13*x-8);x;:nextx
  6. 60 fory=1tom:a(1,y)=1+m-y:nexty:a(1,0)=m:a(2,0)=0:a(3,0)=0:n=0:ti$="000000"
  7. 70 print"[206]aechster [218]ug (z.[194].: 1 3) ?     ";:q=3:gosub190:f=a:gosub190:t=a
  8. 80 ifa(f,0)>0anda(f,a(f,0))<a(t,a(t,0))then110
  9. 90 ifa(f,0)>0anda(t,0)=0then110
  10. 100 print"[198]alscher  [218]ug?[146]";:fori=1to3000:next:goto70
  11. 110 b$="[146] ":r=18-a(f,0):v=13*f-7:w=a(f,a(f,0)):forc=v-wtov+w:gosub200:nextc
  12. 120 a(t,0)=a(t,0)+1:a(t,a(t,0))=a(f,a(f,0)):a(f,a(f,0))=0:a(f,0)=a(f,0)-1:n=n+1
  13. 130 b$="*[146]":r=18-a(t,0):v=13*t-7:w=a(t,a(t,0)):forc=v-wtov+w:gosub200:nextc
  14. 140 ifa(3,0)<>mthen70
  15. 150 print"[211]pitze! [196]u hast";str$(n);" [218]uege in";str$(val(ti$));" sec gebraucht.";
  16. 160 print"[196]as [205]inimum sind";
  17. 170 printo;"[218]uege.":input"[206]eues [211]piel";a$:ifa$="j"ora$="[202]"thenrun
  18. 180 end:run
  19. 190 geta$:a=val(" "+a$):t=a>0anda<=q:ont+1goto190:printa;:return
  20. 200 poke214,r:poke211,c:sys58640:printb$;:return
  21.